home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1984 Half 1
/
rerun-1984-01-06-side-b.d64
/
baha1000 mar p68
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
34 lines
501 poke52,28:poke56,28:clr
510 forq=7168to7168+26*16-1:reada:pokeq,a:next
515 print"[147] directions":print" space bar[146] makes your truck jump"
516 print" f7[146] switches exhaust":print" jump ditches, cactii":print" switch exhaust to"
517 print" confuse heat-seeking"," bombs":fort=1to6000:nextt
518 print" load";chr$(34);"baha module";chr$(34)",8[145][145]";:poke631,13
519 poke632,82:poke633,213:poke634,13:poke198,4
520 data85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85
521 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
522 data0,32,32,136,136,136,32,32,85,85,85,85,85,85,85,85
523 data32,136,136,136,32,32,85,85,85,85,85,85,85,85,85,85
524 data136,136,32,32,85,85,85,85,85,85,85,85,85,85,85,85
525 data32,32,85,85,85,85,85,85,85,85,85,85,85,85,85,85
526 data0,0,0,0,0,0,0,7,4,15,15,15,14,30,0,0
527 data0,0,0,0,0,0,0,254,146,255,255,135,51,121,252,252
528 data0,240,136,132,130,194,205,255,255,255,255,255,254,254,0,0
529 data0,0,0,0,0,0,192,254,254,255,135,123,253,253,252,252
530 data0,0,0,0,0,16,16,16,80,84,84,92,112,16,24,126
531 data0,48,120,204,204,204,120,48,0,0,0,0,0,0,0,0
532 data254,4,4,126,147,147,255,255,127,62,16,0,0,0,0,0
533 data16,0,0,0,0,130,197,242,156,0,0,0,0,0,0,0
534 data143,4,4,126,147,147,255,255,127,62,16,0,0,0,0,0
535 data240,0,0,0,0,133,192,245,156,0,0,0,0,0,0,0
536 data0,128,160,160,192,176,204,242,253,119,203,203,123,49,0,0
537 data0,0,4,10,17,33,113,253,254,255,255,255,255,254,252,60
538 data0,0,0,0,0,0,0,64,234,255,251,255,59,31,202,47
539 data0,0,60,195,0,0,60,195,0,0,60,195,0,0,60,195
540 data4,22,30,31,63,63,63,63,31,31,30,30,14,14,14,4
541 data68,84,40,16,56,56,56,56,16,0,0,0,0,0,0,0
542 data65,65,0,0,20,20,20,0,0,20,20,20,20,20,20,20
543 data1,0,16,20,20,20,16,1,1,16,20,20,20,16,0,1
544 data65,0,4,20,21,21,21,21,21,21,21,21,20,4,0,65
545 data1,0,16,20,20,20,20,20,20,20,20,20,20,16,0,1